home *** CD-ROM | disk | FTP | other *** search
- ; Marryampic installation script
- ; Well, this is the first time I try to write an installation script...
-
- ; check kick version
- (if (< (/ (getversion) 65536) 37) (abort "Marryampic requires KickStart v2.0 or + to run !"))
-
-
- (set target
- (tackon
- (askdir
- (prompt "In which disk or drawer should the drawer called \"Marryampic\" be created?")
- (help
- " The Marryampic program and the CardSet 'Animals' will be installed in a new drawer "
- "called \"Marryampic\". You are being asked where this new drawer should be created. "
- "If you select \"Work:\", for example, then a new drawer named \"Work:Marryampic\" will be created, "
- "and Marryampic will be installed into this new drawer.\n"
- "\n"
- @askdir-help
- )
- (default @default-dest)
- )
- "Marryampic"
- )
- )
- (makedir target (infos))
- (set @default-dest target)
-
- (copyfiles
- (prompt "Copying to " target )
- (help @copyfiles-help)
- (source "")
- (dest target)
- (choices "Marryampic" "Docs" "Cards" "Catalogs")
- (infos)
- )
-
-
- ; Change ToolTypes for best-use with hard-disk
- (tooltype
- (dest (cat target "/Marryampic"))
- (settooltype "PreLoad" "No")
- (settooltype "DirectToDisk" "No")
- )
-
- (message "Don't forget to adjust the ToolTypes\n"
- "in the icon of Marryampic to your\n"
- "convenience.\n"
- "So, read the docs!\n"
- "and have fun to play..."
- )
-